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STALOSYS Standalone 1/0 system 16-Sep-19 1:05:14 AX-11 Bliss-32 V4.0-74 
, 12-808- 1382 91:92:48 BACKUP.SRC STalosis 68951 
1 


MODULE STAIOSYS (2TITLE senengatone 1/0 system’ 
IDENT = *Vv04-000' 


— 


BEGIN 


' 
eee eReeeRA RAHA HAAAAAHKHHRAAHAHHKeKeeeeeeeeeeeeeteneeeReeeKeeeeeeeeeeAAeeee 
' 


!* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
tt ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ee khore c THE TER F SUCH Tint a By AL 


: NCLU OF THE E OTICE. OF Tw 0 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
* 
& 
® 
fe 
& 
® 
® 
& 
® 
& 
ie TRANSFERRED. ‘ 
® 
® 
® 
® 
® 
® 
oe 
® 
® 
® 
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a a aa a kk tk at a at tt a 8 8 2s 1 ts 1 
. . 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i sepokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


gesssssasssessasssess 


PAR UM “ODS NOUN OOD NAMES 


oo PITTITILILILILI LLL LLL Liiiiiiiiiiiiiiiiiiiiiii iii 
1 
00 
003 'e¢ 
003 ! FACILITY: 
908 } Backup/Restore 
35 008 i ABSTRACT: 
00 : This module contains the replacements for 1/0 routines in the 
3s $4 } stand-alone environment. 
9 0039 1 | ENVIRONMENT: 
re Boece : VAX/VMS user mode. 
4¢ 004¢ i 
ef aeer AUTHOR: M. Jack, CREATION DATE: 27-Dec-1980 
45 G94s : MODIFIED BY 
<3 0049 i v03-001 ACG0313 Andrew C. Goldstein, 12-Feb-1983 17:22 
rr 6 4 } Add routine subtitles 
50 0080 iee 


9: 14 AX-11 Bliss-32 V4.0- o-7%5. 
754:05 BACKUP. SRCJSTAIOSYS .B32;1 


Standalone 1/0 system 18-Sep-1984 9: 


Pp 
14-Sep-19 a (8 


: 3 0051 1 REQUIRE 'SRC$:COMMON': 

; 1157. 1 LIBRARY "SYS$LIBRARY:L18'; 

; 654 11 3 1 

: 5 1 1 

: § 1160 1 FORWARD ROUTINE 

: 1161 1 ASSIGN. CHANNEL ! Execute SASSIGN service 
: 58 116¢ 1 LIBSGET_ ND, i LIBSGET_COMMAND 

; 59 1163 1 LIBSPUT_OUTPUT, i LIBSPUT"OUTPUT 

: 60 1164 1 SYSSaI0, ' Q10 service 

; 61 1165 1 $Y¥S$010W i Q10W service 

; 6¢ 1166 1 SYSSCLOSE i CLOSE service 

a: 1167 1 SYSSCREATE, i CREATE service 

> 64 1168 1 SYSSOPEN i OPEN service 

: «65 1169 1 SYSSCONNECT, i CONNECT service 

$ 66 1170 1 SYSSPUT, ! PUT service 

$ 67 1171 ~=«1 UMMY; ' Dummy service 

; «68 1178 1 

: #469 1173 (1 

: 70 1174 1 EXTERNAL ROUTINE 

: 71 1175 «1 STA : ! Standalone ACP Q10 processor 
; rg 1176 1 

: 7 1177 1 

. = 1178 1 

;. ve 1179 «#1 STA_TT_CHAN; ! Channel assigned to SYSSINPUT/OUTPUT 


sm | 
| 


F 


— 
> 
_ 
< 
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Standalone 1/0 system Jo~senn 1386 91:93:36 oorth Bliss-32 oF ah 11 Page 3 
ASSIGN_CHANNEL = assign channel to device 14-Sep-1984 11:54:05 BACKUP. SRCIJSTAIOSYS.832;1 (3) 
1180 1 ZSBITL "ASSIGN_CHANNEL = assign channel to device’ 
3 1 } ROUTINE ASSIGN_CHANNEL (DEVICE, CHANNEL) = 
11 : 1 !e¢ 
1184 1! 
1185 1 =! FUNCTIONAL DESCRIPTION: 
1138 : This routine executes the SASSIGN service. 
1188 1 ! INPUT PARAMETERS: 
1189 1! DEVICE - Descriptor for device name | 
1139 : CHANNEL - Pointer to where channel number will be stored 
1136 1 ! IMPLICIT INPUTS: 
1195 1! NONE 
11946 1! 
1195 1 ! OUTPUT PARAMETERS: 
1196 1! NONE 
1197 1! 
1198 1°! IMPLICIT OUTPUTS: 
1199 1! NONE 
1200 1! 
1201 1 ! ROUTINE VALUE: 
1e08 1! Completion status. 
12035 1! 
1206 1 ! SIDE EFFECTS: 
1205 1! NONE 
1206 1! 
1207 1 !=- 
1208 1 
1608 BEGIN 
1210 MAP 
ae ec DEVICE: REF BBLOCK; ! Pointer to descriptor for device 
1313 IN_DESC: VECTOR(C2], ! Descriptor for input device name 
1214 OUT_DESC: VECTOR} ¢. ' Descriptor for BUFFER 
1215 BUFFER: VECTORL64,BYTEJ,! Buffer for result of $TRNLOG 
1si¢ p ! Temporary pointer 
121 STATUS; i Status variable 
1519 
1$30 : Strip elements following colon from string if required. 
1292 IN_DESCCO) = .DEVICECDSC$W_LENGTH); 
\$6 IF~(P = CHSFIND CH(.DEVICECDSC$W_LENGTH], aDEVICECOSCSA_POINTER), ZC°:")) NEQ 0 
1224 THEN IN_DEST(O) = .P = .DEVICELDSCSA_POINTER); 
1386 IN_DESCL1) = .DEVICECDSCSA_POINTER); 
1 
\¢ 3 : Execute STRNLOG service to handle process-permanent file. 
1230 OUT_DESC 9} = 64; 
1231 2 OUT~DESCL1) = BUFFER; 
1 § BUFFE = 0; 
' ? STRNLOG(LOGNAM=IN_DESC, RSLLEN=OUT_DESC, RSLBUF=OUT_DESC); 
1235 
1236 ! Handle process-permanent file. 


ce - 
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STALOSYS Standalone 1/0 system 16-Sep-1984 01:05:14 AX-11 Bliss-32 V4.0-74 P 
voe-000 ASSIGN_CHANNEL =" assign channel to device 12-86-1382 94592508 EBACKUP SRE STAIOSYS.04951 — 
oS 1237 ' 
s So 1 3 If .BUFFERCOJ EQL %0'033' 
: 1 1 THEN 
: 1 1240 BEGIN 
; 138 1241 IN_DESCEO] > QUT _DESCEO) - 4; 
; 139 1 4¢ IN-DESCC1J = .OUTIDESCE1] + 4; 
: 140 124 END; 
: 141 1244 
: 148 1245 
3 re } ré Execute SASSIGN service, returning its result as value. 
145 1248 3 $ASSIGN(DEVNAM=IN_DESC, CHAN=. CHANNEL) 
3 146 1249 END; - 
-TITLE STAIOSYS Standalone I/0 system 
-IDENT \v04-000\ 
«PSECT DATA,NOEXE,2 
00000 STA_TT_CHAN: 
-BLKB 4 
-EXTRN STA_QIO, SYSSTRNLOG 
“EXTRN SYSSASSIGN 
-PSECT CODE,NOWRT,2 
0004 00000 ASSIGN_CHANNEL: 
.WORD Save R2 : 
5E BO AE 9E 00002 MOVAB -80(SP), SP : 
52 04 AC DO 00006 MOVL DEVICE, R2 F 
48 AE 62 3C OOO0A MOVZWL (Re), in DESC : 
04 B82 62 3A 3A 00005 LOCC «6s #58, (R23, a4(R2) : 
02 12 0001 BNEQ 1$ : 
1 04 00015 CLRL ss R1 ; 
51 DS 00017 1$: TSTL) oP ; 
06 13 99019 BEQL 2$ : 
48 AE 51 04 Ag c3 00018 SUBL3 4(R2), P, IN_DESC : 
4C AE 06 A2 00 99021 2s: MOVL 4(R2)° “S_DESC#4 : 
40 AE 40 BF 9A 90 6 MOVZBL #64, vul_BESC : 
44 AE 6E 9E 00028 MOVAB BUFFER, OUT_DESC+4 ; 
6E 94 0002F CLRB = BUFFER : 
7E 7¢ 999 1 CLRQ = = (SP) : 
7E p4 00 3 CLRL = = (SP) : 
4C AE OOF 900 PUSHAB OUT_DESC : 
50 AE 9F 00038 PUSHAB OUT~DESC ; 
5C OAC 0038 PUSHAB IN_DBESC : 
000000006 00 06 FB 000 : CALLS #6, SYSSTRNLOG : 
1B 6E 91 0004 CMPB BUFFER, #27 : 
¢ le 0048 BNEQ : 
48 AE 40 AE 4 C3 0004A SUBL 3 #4, OUT_DESC, IN_DESC 3 
4C AE 44 —OAE 4 ci 0050 ADDLS #4, OUT“DESC#+4, IN_DESC+4 ; 
— 7C 0096 3$: CLRO. 0s = ( §P) : 
08 AC pp 005 PUSHL CHANNEL ; 
54 AE 9F 00058 PUSHAB IN_DESC ; 
000000006 00 04 FB 0005E CALLS #47 SYSSASSIGN : 


sea 


; Routine Size: 


102 bytes, 


ystem 
= assign channel to device 


Routine Base: CODE + 0000 


18-52 “19 
1e-8ep-19 


04 00065 


Be 91:50:08 


RET 


AX-11 Bliss-32 V 
BACKUP. SRCISTAIO 


4.0-74 
SYS.B3 


3 


Page 5 


(3) | 


; 1249 


tat 


THEN 


Ooo~y 


BEGIN 
STATUS = ASSIGN_CHANNEL (SDESCRIPTOR('SYSSINPUT'), STA_TT_CHAN); 
rd «STATUS THEN RETURN .STATUS; 


: Execute the Q10. 
STATUS = $010W( 


Mw 
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STALOSYS Standalone 1/0 system sb-se 1984 01:05:14 AX-11 Bliss-32 V4.0-74 Page 6 
Wo LIBSGET. COMMAND = get input from terminal 1e-88p-198e 91:92:08  Yeackur Sneistarosis.0331 ~ 

: 148 1 20 1 ZSBTTL "LIBSGET_ COMMAND = get input from terminal’ 

: 13 ! 1 : GLOBAL ROUTINE CIBSGET_COMMAND(GET_STR,PROMPT_STR,OUT_LEN)= 

s 91 1 3g 1 !e4 

eS ¢ 1254 1! 

os 1255 1 ! FUNCTIONAL DESCRIPTION: 

> 154 1 2$ 1! This routine is a replacement for LIBSGET_COMMAND in the 

s 199 jeor 1! stand-alone environment. Note that it need only handle static 

3 V6 1258 1! output strings. 

: 157 1259 1! 

; 158 1260 1 ! INPUT PARAMETERS: 

; i tener 8 - Pointer to static descriptor to receive the string. 

: 160 1 $6 1! PROMPT STR - Pointer to descriptor for prompt 4 lag 

3 19) 1263 : OUT_LEN - (Optional) Pointer to word to receive length. 

3 188 1265 1 ! IMPLICIT INPUTS: 

> «164 1266 1! NONE 

s 165 1267 1! 

: 166 1268 1 ! OUTPUT PARAMETERS: 

; % 1269 1! NONE 

: «168 1270 1! 

: 169 1271 1°! IMPLICIT OUTPUTS: 

: 170 1s%¢ 3 NONE 

3 (171 1275 1! 

: 1% 1274 1 ! ROUTINE VALUE: 

3; 17 1275 1! Completion status. 

3; (174 1276 1! 

s 75 1277 1°! SIDE EFFECTS: 

3; 176 1278 1! NONE 

s 77 1279 1! 

: #178 1280 1 !-- 

: 179 1281 1 

; 180 ieee 2 BEGIN 

: «181 128 § MAP : ; 

; 182 1284 GET STR: REF BBLOCK, ! Pointer to static descriptor 

: 183 1285 2 PROMPT_STR: REF BBLOCK; ! Pointer to descriptor 

> «186 1286 § LOCAL 

; «185 1287 STATUS, ' Status variable 

; «186 1288 2 10SB: VECTORC4 WORD] ' 1/0 status block 

> 187 1289 BUFFER: VECTORC1$2, BYTE); i Input buffer 

: «#188 1290 BUILTIN 

: «4189 1291 ACTUALCOUNT; 

3; 190 1s36 

3 «6191 1s? ; 

; 136 1294 ! Assign the channel if required. 

3 «19 1295 : 

: 194 1296 2 IF .STA_TT_CHAN EQL 0 

3; «6195 1 

3; 196 1 

: 197 1 

: 198 1 

3; «199 1 

; 200 1 

: $03 

3 08 1 

3; 204 1 


bon 4 oe pce eb 


| 97 | 
STAIOSYS one 1/0 syste 16-Sep-1984 01:05:14 AX-11 Bliss-32 4 Pp 7 
v04 C : 1ersee=f Se Py:e2ihe | Y Sc 


Standal m 1 v4.07 § 
LIBSGET_COMMAND = get input from terminal 4 11:54:0 BACKUP.SRCIJSTAIOSYS.B32;1 (4) ' 
; 205 P 1307 FUNC=10$_READPROMPT, 
: 06 P 08 CHAN=.STA_TT_CHAN, 
; 20 P 1309 10SB=10SB; 
; 208 P 1310 Pi=BUFFER, 
: 209 P 1311 P2=1 
> 210 Pi 1 P = -PROMPT _STREDSCSA_POINTER], | 
> 211 131 P6=. PROMPT ST DSCSUALENGTH2) | 
: 1g 1314 2 IF .STATUS THEN STATUS =~. JOSBLO): 
; 3 13 IF NOT .STATUS THEN RETURN .STATUS; 
3 15 1 i$ 
: \$ ; 18 Return the length if requested. 
3 219 ; 9 IF ACTUALCOUNT() GEQU 3 
: 3 : (.OUT_LEN)<0,16> = MINU(.IOSBL1], .GET_STRIDSC$W_LENGTH)); 
: 22 1324 
: 228 1395 : Copy the string to the output buffer and return. 
: 225 135 CHSCOPY(.10SBL1], BUFFER, %C' ", .GET_STRCDSCS$W_LENGTH], .GET_STRCDSCSA_POINTER)); 
3; 226 1328 2 SS$_NORMAL 
3 2e7 1329 1 ; 
54 55 SO 4E 49 246 53 59 53 00066 P.AAB: ASCII \SYSSINPUT\ : 
00000009 00070 P.AAA: <LONG 9 : 
00000000" 00074 -ADDRESS P.AAB : 
.EXTRN SYS$Q10W 
007¢ 00000 .ENTRY LIBSGET_COMMAND, Save R2,R3,R4,R5,R6 : 1251 
56 00000000" EF 9E 90002 MOVAB STA_TT_CHAN, R6 : 
5E FF74 CE 3E 000 MOVAB -140(SP), SP ; 
66 D 90006 TSTL § STA_TT_CHAN > 1296. 
0D 12 0001 BNEG «1 : 
56 pd O02 PUSHL R6 : 1299 
E1 AF 9F 0001 PUSHAB P.AAA ; 
FF6C CF 0 FB 0017 CALLS #2, ASSIGN_CHANNEL ; 
55 50 €£ gore BLBC STATUS, 4$ : 1309 
51 08 AC b0 OO1F 1$: MOVL § PROMPT.STR, R1 : 131 
7E 61 3¢ 90 3 MOV2WL (R1), =(SP 3 
046 Al db 026 PUSHL 4(R15 : 
7E 7C 00029 CLRO nity ; 
7E 84 BF 9A 00028 MOVZBL #132, -(SP) : 
14 AE 9F O002F PUSHAB BUFFER : 
7E 7C 00032 CLRQ = = (SP) : 
F8 AD 9F 000 PUSHAB 10SB ; 
37 DD 00037 PUSHL # : 
6 0D 9 PUSHL STA_TT_CHAN : 
E D4 00038 CLRL.  =(SP F 
000000006 00 ¢ FB 03D CALLS #12, SYS$QI10W : 
gp 0 5 044 BLBC STAT > 1314 
0 F8 AD 3C 00047 MOVZWL 10SB, STATUS : 
26 50 €9 00048 BLBC STATUS, 4$ > 1315 


7 
STAIOSYS Standalone 1/0 system 15. Sep-1 1: AX-11 Bliss-32 V4.0-74 
voe-000 LIBSGET_COMMAND e get input from terminal 122805-1 984 iF 2; £08 BACKUP .SRCISTAIOSYS. 533.1 
03 $f 91 0004 AP), #3 
i Fi BLSSU 
38 FA AD 3C 5 MOVZWL I0SB+2 
0 04 ¢ 81 0097 CMPW 3 @GET_ Str °n0 
50 04 Bf af 005D MOVZWL . eT. sre. RO 
0c Bf BO 00061 ¢: T_LEN 
0 04 «AC bP BRe8 $: MOVL Hit R 
60 20 6E be ab C Oper Moves opi “BUFFER, #32, (RO), a4(RO) 
50 Bi DO 0091 MOVL 1, RO 
04 00074 4$: RET 


; Routine Size: 117 bytes, Routine Base: CODE + 0078 


| 


STAIOSYS Standal 
v04-000 LIBSPUT 
$$ ? 

1 
5 
2 ; 
| : 
9 40 
40 41 
? i 
tg 44 
44 45 
te i 
<3 i 
48 49 
49 350 
sO 
26 338 
5 $2¢ 
3g 38 
56 328 
57 358 
58 59 
SOR 


FRR 
UMEwr 


PRIPIPIMIPIPPDPNININININIHMLFUNININYINPININPIPIDINPII IY ad ad at tk kk kt tt at tt ot 


SOPE ROSS 


ARAVA SSNS AP INI OOS WP AR 
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ROUTINE VALUE: 
Completion status. 


SIDE EFFECTS: 
NONE 


, 

one 1/0 system 16-Sep-19 1:05:14 
OUTPUT ~ urite to SYSSOUTPUT 12-8601 384 #4928 

ZSBTTL "LIBSPUT_OUTPUT = write to SYSS$OUTPUT' 

GLOBAL ROUTINE CIBSPUT_OUTPUT(PUT_STR)= 

1e4 

i 

i FUNCTIONAL DESCRIPTION: 

; This routine is a replacement for LIBSPUT_OUTPUT in the 

stand-alone environment. 

i INPUT PARAMETERS: 

: PUT_STR - Pointer to descriptor for string. 

i IMPLICIT INPUTS: 

' NONE 

] 

i QUTPUT PARAMETERS: 

NONE 

i IMPLICIT OUTPUTS: 

: NONE 

i 

i 

! 

i 

i 

i 

' 


PUT_STR: 
STATUS, 
10SB: 


REF BBLOCK; 
VECTORC4 ,WORD); 


Assign the channel if required. 
if .STA_TT_CHAN EQL 0 
THEN 


BEGIN 
eats = ASSIGN CHANNEL (SDESCRIPTOR('SYSSINPUT"), 


I Ra «STATUS THEN RETURN .STATUS; 


: Execute the Q10. 


J 


-PUT_STREDSCSA_POINTER 
P2=.PUT-STREDSCSW_LENGTH] 
P4=kc* *); 


IF .STATUS THEN STATUS = .10SBL0); 


! Pointer to descriptor 


' Status variable 
! 1/0 status block 


t 


AX-11 Bliss-32 
BACKUP.SRCJSTAI 


STA_TT_CHAN); 


Vv 
0 


4.0 
SYS 


7 
B 


-7% 


3 


31 


9 
(5) 


| STALOSYS Standalone 1/0 syst 1S-se =1984 01:05:14 AX-11 Bliss-32 V4.0-74 P 1 
v04 LIBSPUT_OUTPUT urite to SYSSOUTPUT 12-808- 1382 01:92: 8 YBACKUP SRE STa1bSis 63951 ee (38 
: 1387 2 .STATUS 
3 es 138 ¢ END; 

54 55 50 4E 49 24 53 59 53 OQODED P.AAD: .ASCII \SYSSINPUT\ ; 
OOF6 -BLKB 
0000009 OO0F8 P.AAC: <LONG : 
0000000' O00FC SADDRESS P.AAD : 
0004 00000 .ENTRY LIBSPUT_OUTPUT, Save R2 : 1331 
52 00000000° Fe 9000¢ HOVAR STA_TT_CHAN, R2 : 
5E 8 C2 0000 SUBL2 #8, SP : | 
62 D5 0000C TSTL  STA_TT_CHAN : 1369. 
D 12 OO00E BNEG 1 ; | 
2 DD 9001 PUSHL R2 : 1372) 
E3 AF 9F 0001 PUSHAB P.AAC : | 
FEE6 CF 02 FB 0001 CALLS #2, ASSIGN_CHANNEL : | 
28 5 EY OO01A BLBC STATUS, 2$ : 1373 
ze C 0001D 1$: CLRQ = = (SP) : 1385. 
é DD OO01F PUSHL #32 : 
E D4 00021 CLRL. = = (SP) : 
51 06 AC b0 00023 OVL PUT_STR, R1 : 
7E 61 3C 00027 MOVZWL (RIT, -(SP) : 
06 Al DD 900¢A PUSHL (R1$ : 
7E 7C 0002D CLRQ. = =( SP) : 
20 AE OF 900¢F PUSHAB 1088 : 
20 DD 00032 PUSHL #32 : 
62 DD 00034 PUSHL STA_TT_CHAN : 
7E 04 000 CLRL =(SP 3 
000000006 09 C FB 00038 CALLS #12, SYS$QIOW : | 
0 59 0003F LBC f > 1386. 
0 bE 3¢ 00042 MOVZ2WL I0SB, STATUS : | 
04 00045 28 ET : 1388) 
; Routine Size: 70 bytes, Routine Base: CODE + 0100 


| 
| 
| 
| 
| 
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| STALOSYS Standalone 1/0 system 16-Sep-1984 01:05:14 AX-11 Bliss-32 V4.0-74 e 11 
v04 SYS$QI10 - intercept Q10 service call 18-8 08-13be 91392208 {BACKUP SRE Stalosie asset — (6) 
H 88 1389 1 ZSBTTL ‘SYSS$QIO = intercept Q10 service call’ 

3 $1 ; : : GLOBAL ROUTINE SYSSQIO(EFN, CHAN, FUNC, 1IOSB,ASTADR,ASTPRM,P1,P2,P3,P4,P5,P6)= 
Be Li 

3 94 1 1 ! FUNCTIONAL DESCRIPTION: 

: 295 1395 1! his routine is a replacement for the Q10 service in the 

3 1 1! stand-alone environment. 

A 9 1397 1! 

3 98 1 4 1 ! INPUT PARAMETERS: 

; 299 iF ; : As for SYS$QI0. 

: 301 1209 1 | IMPLICIT INPUTS: 

BRR tte 

: 304 1404 1 | OUTPUT PARAMETERS: 

$ 05 He 1 } : NONE 

: 30 1407 1! IMPLICIT OUTPUTS: 

309 1209 1 | — 

: 310 1410 1! ROUTINE VALUE: 

3 3 ei ’ : Completion status. 

; ig 1213 1! SIDE EFFECTS: 

3 14 1414 1! NONE 

3 15 1415 1! 

3 16 a 1 !-- 

3 17 141 1 

815 1219 5 Ape 

; 320 1420 FUNC: BBLOCK; ! 1/0 function code 

3 21 1421 BIND ROUTINE 

3 $$ 14 ; Q10_VECTOR= %X°800001C8'; ' Vector location for SYS$Q10 
s (Ube 14 BUILTIN 

: 24 14264 CALLG, 

3 25 1425 AP; 

; 6 14 $ 

388 1258 5 IF 

; ¢9 1429 . FUNC 1osv_F CODE) LEQU 10$_LOGICAL OR 

3 1430 -FUNCCIOSV_FCODEJ EQL 10$_READPROMPT 

3; «6331 1431 THEN 

3 38 i¢ ¢ BEGIN 

: 14 i Pass physical and logical 1/0 functions, and READPROMPT function, 
g 36 16 5 directly to the driver. 

; 37 1439 CALLG(.AP, Q10_VECTOR) 

3 14 ; END 

; 339 14 ELSE 

i ieee ats. 

; ¢ 1346 Read/write virtual and ACP 1/0 functions come here. 

> 344 1444 CALLG(.AP, STA_Q10) 

: 5 1445 END 


-—_-——------—------ 


| 
STAIOSYS Standalone 1/0 s 1b-s¢ -1984 01:05: AX-11 Bliss-32 v4.0-74 Pp 1 
v04 SYS$Q10 = intercept “O10 service call ~$00-138% 9 9 ‘Og BACKUP. SRC STAIOS sys o33.1 — as 
: 346 1446 1 END; 
Q10_VECTOR= -21467483192 
0000 ENTRY syS8010.. a4 . nothin 3; 1390 
| 2F oc ac 06 ED cnezy ie #6, FUNC. Be?” : 1429 
37 Oc ac 06 FD A CMPZV . #6, eet, #55 t 1430 
800001C8 9F 6C FA 9 13 1$: CALLG (AP), a#*x800001¢8 ; 14 . 
000000006 00 6C oe OO1A 2$: CALLG (AP), STA_QIO + 1444 
04 00021 RET + 1446 


; Routine Size: 34 bytes, Routine Base: CODE + 0146 


7 
STAIOSYS Standalone 1/0 system 15- ep-1 1:05:14 AX-11 Bliss-32 V4.0-74 P 
904 800 SYS$Q10W - ntercept Q10W service call 1 ~3007} 382 i 4:05 BACKUP SRESSTALOSYS 03551 ~— RY 
3 1447 1 ZSBTITL ‘SYS$SQ]0OW = intercept Q10W service call’ 
: 349 1448 GLOBAL ROUTINE SYSSQIOW(EFN, CHAN, FUNC, IOSB,ASTADR,ASTPRM,P1,P2,P3,P4,P5,P6)= 
; 351 1450 1 !44 
; 2 1234 i 
: 1436 1 ' FUNCTIONAL DESCRIPTION: 
: 4 1455 1! This routine is a replacement for the Q10W service in the 
: 2? tr : stand-alone environment. 
; 3 1456 1 | INPUT PARAMETERS: 
: ry 106 : As for SYS$Q]0W. 
; 1089 1 | IMPLICIT INPUTS: 
: 303 lee) yi — 
: 4 1468 1 | OUTPUT PARAMETERS: 
Pt nc 
; 1465 1) IMPLICIT OUTPUTS: 
; 7 1466 ; NONE 
: 1468 1 | ROUTINE VALUE: 
; 108) : : Completion status. 
; 1471 1 | SIDE EFFECTS: 
: 147 1 NONE 
3 1473 1: 
| i | 
: 1476 BEGIN 
: 147 EXTERNAL ROUTINE 
: 1478 SYSSWAITER: ADDRESSING_MODE (GENERAL) ; ! Wait for event flag 
: 1479 2 REGISTER 
3 re + rO=0; 
; 1481 2 BUILTIN 
5 148 AP; 
: is 
: 14 RO = CALLG(.AP, SYS$QIO); ' Execute $Q10 part | 
: 14 IF NOT .RO THEN RETURN .RO; i If failed, return status 
: 14 CALLG(.AP, SYSSWAITFR) i Execute SWAITFR part 
3 1489 END; 
-EXTRN SYSSWAITFR | 
0000 9009 ENTRY SYS$QIOW, Save nothing : 1448 | 
b8 AF 6 FA 0000 CALLG (AP), SYS$QI0 + 1486 | 
07 E9 00006 + 1487 | 
000000006 00 6C FA 00009 CALLG (AP), SYSSWAITFR > 1488 | 
04 00010 1$ > 1489 


3; Routine Size: 17 bytes, Routine Base: CODE + 0168 


ROUTINE VALUE: 
Completion status. 


SIDE EFFECTS: 
NONE 


kK 7 
STALOSYS Standalone 1/0 system 16-Sep-1984 01:05:17 AX-11 Bliss-32 V4.0-74 P 4 
Vv04 SYSSCLOSE = RMS Stiose routine 1 ~300-1382 9: 4:0 YBACKUP Se STareeve 35s ~— (BS 
3 ZSBTTL *SYSSCLOSE = RMS SCLOSE routine’ 
3? GLOBAL ROUTINE SYSSCLOSE(FAB)= 
95 hed 
3 i FUNCTIONAL DESCRIPTION: 
98 ! This routine is a replacement for the CLOSE service in the 
iso : stand-alone environment. 
401 i INPUT PARAMETERS: 
t08 FAB - Pointer to the FAB. 
406 IMPLICIT INPUTS: 
4 i 
toe !' OUTPUT PARAMETERS: 
res NONE 
i IMPLICIT OUTPUTS: 
NONE 
i 
' 
i 
' 
i 
i 
* 


BEGIN 
MAP 
FAB: REF BBLOCK; ! Pointer to FAB 


PIP IRIPIPIIIRY et et et et ot ot ot 


presage oh ake 
Fa DWONOUVUVESWN —OOONOU SW —O 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: This service deassigns the channel that was assigned by SCREATE or SOPEN. 
1 


WNP PIPINPINININININIDS 2 2 2 OOCOO 
VISSONONS UNS SOBVAARUVAOSBIEAP ARO OSDAIEARAOLOS OD 


a me ee ee ee ee ee ee ee ed ee ee eed ed nd 


QPVPVDVIUPULIV DV IU PUPS IUSDVSUSUSUSUSUSUST SSIS SSIS ISIS SS SE I I 


Fat et ak et et et ak et kkk ae ae ket et et tt et nt et 


SDASSGN(CHAN=.FABLFABSL_CTX)); 
FABLFABSW_IFIJ = 0; 
FABLFABSL_CTX} = 0: 
FABLFABSL-STS) = RMS$_NORMAL; 
FABLFABSL STV) = 0; 
RMS$_NORMAL 
END; 
.EXTRN SYSSDASSGN 
0004 00000 -ENTRY SYSSCLOSE, Save R2 3: 1491 
52 04 ac D0 00002 MOVL FAB, R2 > 1526 
18 A2 DD 9006 PUSHL  24(R2) F 
000000006 00 01 FB 000 CALLS #1, SYSSDASSGN F 
93 A2 B4 9019 CLAW g(f2) ; 15 a 
18 A2 D4 1 CLRL 4(R2) : 1528 | 
08 a2 00010001 8F 00 6 16 MOVL #655 7, 8(R2) : 1529 | 
C A2 04 olf CLRL =: 12 ¢R2) : 1530 | 
50 00010001 8F DO 0002 MOVL #65537, RO : 1532) 


S88 


; Routine Size: 


tandalone 1/0 system 
vats: = RMS SiLOse routine 


41 bytes, 


Routine Base: 


CODE + 0179 


i 


04 00028 


se 
aSep- 


1986 94382308 


RET 


AX-11 Blis 
BACKUP. SRC 


ist 


32 V4. 
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9593.1 
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ee 


ww 


= | 


a 7 
Standalone 1/0 system 16-Sep-1984 91:09: 6 yereee Bliss- 
04-000 SYSSCREATE = RMS SCREATE routine 14-Sep-1984 11:54:05 BACKUP.SRCIS 
s «6 1533 1 ZSBTTL 'SYSSCREATE = RMS SCREATE routine’ 
3 : i 1 ¢ 1 GLOBAL ROUTINE SYSSCREATE(FAB)= 
; 439 1 : 1 le4 
; 4460 j 3 
: 441 1538 1 ! FUNCTIONAL DESCRIPTION: 
: 44 1539 1! This routine is a replacement for the CREATE service in the 
>: 44 1540 1! stand-alone environment. It is Limited to operation on terminals, 
> 444 1541 1! Line printers, and magnetic tape. 
> «445 1206 1% 
3; 446 1543 1 ! INPUT PARAMETERS: 
3: 4467 1544 1! FAB - Pointer to the FAB. 
>; 448 1545 1! 
; 4469 1546 1 ! IMPLICIT INPUTS: 
; 450 1847 1! NONE 
3 4651 1548 1! 
5 $26 1549 1 ! OUTPUT PARAMETERS: 
3; 45 1550 1! NONE 
3 454 1551 1! 
3 655 1336 1 ! IMPLICIT OUTPUTS: 
3; 456 1553 1! NONE 
3; 457 1554 1! 
3; 458 1555 1 ! ROUTINE VALUE: 
s 4659 1556 1! Completion status. 
; 460 1557 1! 
3 461 1558 1 ! SIDE EFFECTS: 
3; 46 1559 1! NONE 
: 46 1560 1! 
3; 664 1561 1 !<- 
3; 465 1206 1 
>; 466 156 3 BEGIN 
: 467 1564 MAP 5 
: 468 1565 2 REF BBLOCK; ! Pointer to FAB 
; 469 1566 2 LOCAL 
3; 470 1567 2 NAM: REF BBLOCK, ' Pointer to NAM block ; 
3: 471 1568 2 DESC: VECTOR(2), ! Descriptor for expanded string 
3; 472 1569 2 STATUS; ' Status variable 
3; 473 1570 § 
: 674 1571 
3 $73 1376 § Parse the file specification if necessary. 
3; 477 1574 2 IF NOT SPARSE(FAB=.FAB) THEN RETURN .FABCFABSL_STS); 
: 478 1575 2 
; 479 1376 § 
; 480 157 ' Check the device type. 
: 481 1578 ‘ 
; 48 1579 IF 
; 48 1580 NOT ‘ec ocet re FABSL_DEV), DEVSV_CCL] AND 
: 484 1581 NOT .BBLOCK oF FABSL_DEV), DEV$V_SQD] AND 
> 485 1388 .FABLFABSL_DEV) NEQ 0"! Process-permanent file hack 
: 486 15 THEN 
3 487 1584 BEGIN 
: 688 1585 FABCFABSL_STS] = RMS$_DEV; 
: 489 15 6 FABLFABSL_STV) = 0; 
: 490 15 RETURN RMS$_DEV 
3 6491 1588 END; 
: 492 1589 
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ep-1984 01:05:14 AX-11 Bliss-32 V4.0-74 
REATE routine oon 1882 919238 BACKUP. SRC STAIO SYS. 33. 31 
Create the resultant string. 
NAM teere $L_NAM) 


=~ NAMENAMSB 
CHSMOVE Ce Parktiansé ESL, MMSE A CHARSL ESA], .NAMCNAMSL_RSAJ); 


Assign the channel. 
DESC Cfo) = AMENAMSB _ ESL; 

CC1) = “NAMEN ESA 

TUS = ASSIGN_ CHANNEL (DESC, FABLFABSL_CTX]); 
NOT STATUS ~ 


STATUS; 


S$] 
FABSL-STV] 
TURN ~ STATUS; 


4 a 
bad 
' i 
San 
“~ 


! Indicate success. 


' 
' 

FABCFABSL STS] = RMS$_NORMAL ; 
FABLFABSL-STV] = .FABCFABSL_CTX); 
NORMAL 


-EXTRN SYSSPARSE 


OOFC 00000 .ENTRY SYSSCREATE, Save R2,R3,R4,R5,R6,R7 
SE 08 ¢2 90002 SUBL2 #8, SP 
57 04 AC DO 0000 MOVL FAB, R7 
57 DD 00009 PUSHL R 
000000006 00 gi FB o00%8 CALLS i. SYSSPARSE 
50 08 A? BO 90015 HOVE 8(R7), 
1D 40 A? 01 £0 OOO1A 1S: BBS . 64(R7), 2$ 
18 40 A? a 03 E0 O001F BBS a: asi ih?). $ 
13 8 $09 7 BEQL 
eee 54 BE CCR Hrs. ties 
50 00018404 BF Bd 00 4 MOVL #99524, RO 
56 8 A? 00 0003C 2s: MOVL 40(R7), NAM 
03 Ab B A6 90 0046 MOVE 11(NAMS, 3(NAM) 
50 B Ad 9A 0004 MOV ZBL 11(NAM), RO 
B6 0c 86 5 ¢8 0049 OVC3 RO, al2(NAM), @4(NAM) 
bE B Ab 9A 0004 MOVZBL 11(NAM), DESC 
04 AE ¢ A6 00 33 tL 12(NAM); DESC +4 
18 A? 9F 0005 PUSHAB 24(R7) 
04 AE 9F 00058 PUSHAB DESC 


www 
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ee ee ee 
ooo VVl€M Ww 
Ss 000 occ. 
a ad ViFw NOuw 


VAX-11 Bliss-32 V4.0-742 
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8 
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14-Sep-198 


SYSSCREATE = RMS SCREATE routine 


Standalone 1/0 system 


STAIOSYS 
-000 


_ CHANNEL 


33 


RET 
MOVL 
MOVL 
MOVL 
RET 


COooooooeoo 
mawvovssrooosy 
&WOOoOCoOaaO 


Noor uf-u 
Oouwnct odo 
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18 
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ar 000100 
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08 
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FDFB 
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131 bytes, Routine Base: CODE + 01A2 


3; Routine Size: 
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8 
dalone 1/0 system ibese -1984 01:05:14 AX-11 Bliss-3 
OPEN = RMS SOPEN routine 14 att 7 01:92: )8 EBACKUP. SRe ST 


ZSBTTL "SYSSOPEN - RMS SOPEN routine’ 
GLOBAL ROUTINE SYSSOPEN(F AB) 


lee 
' 
' FUNCTIONAL DESCRIPTION: 

This routine is a replacement for the OPEN service in the 
stand-alone environment. It is Limited to operation on terminals, 
Line printers, and magnetic tape. 


INPUT PARAMETERS: 
FAB 


<- 
“no 
es 


PAEAAAAAAAAOAAO 
IAIWAIROPOPOPOrorornofnonon 


AIRS —O ODNAULS WN $0 ODNOAUESWN $C OONOUSWH—OO0O 


- Pointer to the FAB. 


INWAIANNinonoreoreorenoror 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

=. VALUE : 


ompletion status. 
SIDE EFFECTS: 
NONE 


VPP PPV PVP PUPP PUPP PVPUSI SUD SUSUSV SULTS SISSY SULTS SSIS SISSY 
SG PR ay Se A ee ee eat at Dat Sal Rat SS 
MEW —O OONOUEWN 0 OBNOAUSWWN ("OC OONOUSWR (“ODOONOULSWIR 
ee SS) 
PAEAEAEAAAAAAAAAAAAAAAAAAAAAAASAO OA 
AOUMVIVUMUINIVIUIUIS BEEBE EEE PW 
t 
i 


PROPRIA AWINIERPOPPONOPINNIPONOPONIPONIMPONOPINUNINOD) 2 2 2 ot 
_" ~ 
x ~_ 


BEGIN 
FAB: REF BBLOCK; ! Pointer to FAB 
LOCAL 
: REF BBLOCK, ' Pointer to NAM block 
DESC: vECTORC2), ! Descriptor for expanded string 
STATUS; ' Status variable 

i i Parse the file specification if necessary. 

3 if NOT S$PARSE(FAB=.FAB) THEN RETURN .FABLFABSL_STS); 

1 

6 ' Check the device type. 

? gee 5 i wie ped 
8 664 
9 665 NOT -BBLOCK FAB FABSL_DEV], DEV$V_CCL] AND 
70 666 NOT ,BBLOCKCFABLFABSL_DEV], DEVS$V7SQD) AND 
z $67 4 PABEFABSL DEVI NEQ 0°! Process-permanent file hack 
ig 669 BEGIN 
74 670 FABLFABSL_STS] = RMS$_DEV; 
75 671 FABLFABSL_STVJ = 0; 
76 67@ RETURN RMS$_DEV 
77 67 END; 
78 674 


wn 
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VFWN—ODOONOW 
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op000D 
wr 


wr 


Sooo oo Ooo owe 
SSLETEANLSESSIEALA 
PAAAAAAOAO 
SS2VEAE 


SSRES83 


uw 
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: Create the resultant string. 


NAM = ,EABLEABSL NAM]; 
NAMCNAMSB_RSL] =~ .NAMCNAMSB ESL; 
CHSMOVE (.NAMCNAMSB_ESLJ, .NAMCNAMSL_ESA], .NAMCNAMSL_RSAJ); 


! Assign the channel. 


C 9) = ,NAMCNAMSB_ESL; 
1] = .NAMCNAMSL ESA): 

TUS = ASSIGN CHANNEL (DESC, FABCFABSL_CTX}); 

Not STATUS 


BEGIN 
FABLFABSL_STS] = .STATUS; 
FABCFABSL_STV] = 0; 
AC . STATUS; 


run 
oO 
or 


. 

' 

DE 
DE 
ST 
IF 
TH 


Indicate success. 


FABLFABSL_STS] = RMSS$_NORMAL; 
FABCFABSL-STV) = .FABCFABSL_CTX); 
RMS$_NORMAL 


5 at: L248, S 
35 04 AC 56 MOVL FAB, R7 
57 0D PUSHL R7 
000000006 00 01 F 
05 50 € BLBS 
50 08 A7 OD 
04 T 
1D 40 a7 01 € 
18 40 A? 05 € 
40 A? : TSTL 6 
13 BEQL $ 
08 a7 00018404 BF OD 
OC A? D4 CLRL 12 
50 000184¢4 = &F b0 MOVL 
4 RET 
56 8 A? p0 MOVL 40¢ 
03 Ab Ab MOVE 3-11 
50 A6 9A mOVZBL 11¢ 
B6 0c 86 50 ¢8 ovc3 RO 
6E 0B A6 9A MOVZBL 11¢ 
04 AE o¢ A po VL 12¢ 
18 =A? OF PUSHAB 24( 
04 AE OF PUSHAB DES 


AX-11 Bliss-32 v4 


dD 8 
e 1/0 system 16-Sep-1984 01:05:14 
- RMS SOREN routine 12-8087 1 38 91:92: )8 EBACKUP’SRe STAI 


00000 sENTRY SYSSOPEN, Save R2,R3,R4,R5,R6,R7 
SUBL2 P 


CALLS #1, SYSSPARSE 

MOVL 8(R7), RO 

BBS #1, 64(R7), 

BBS rh G4(R7), 
(rR?) 


MOVL $4$4 1h 8(R7) 
12(R7) 


Se Se See Se Se Se Ge Se Se Se Se Se Se Ge Ge Se Se Be Se Se Se Se oe 
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VAX=11 Bliss-32 V4.0-74 
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system 
SYSSOPEK = RMS SOPEN routine 


Standalone 1/0 


STAIOSYS 


| 
| 
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®e*e ee te te te te te 


CHANNEL 
) 


33 


—oO— 


oc 
0 
CODE + 0225 


A? 
: 131 bytes, i : 


8 A? 000100 


FD78 
08 


Routine Base 


Routine Size 


STAIOSYS 
v04 


608 


3 


et at ot tt 
WN —O OONAUVUSWN “OVO ONOULSWN—O 


Winw 


ARIA RO RNIN ae oe anon 


w 


eperereeeces 


rs 
NOW 


; Routine Size: 


fF 

Standalone 1/0 system 16-Sep-1984 01:05: AX-11 Bliss-32 V4.0-74 Page 22 
SYSSCONNECT = RAG SCONNECT routine er8eeni8be 1:82:08 aXcnup SAR Sstarsers 045.1 9 495 
1703 1 ZSBTTL "SYSSCONNECT = RMS SCONNECT routine’ 
i ¢ ; GLOBAL ROUTINE SYSSCONNECT(RAB)= 
17 1 lee 
1509 1! 
1708 1 ! FUNCTI L DESCRIPTION: 
1709 1! his routine is a replacement for the CONNECT service in the 
179 : } stand-alone environment. 
Wig 1 | INPUT PARAMETERS: 
at : } RAB - Pointer to the RAB. 
1715 1°! IMPLICIT INPUTS: 
\7i8 1! NONE 
171 1! 
1718 1 ! OUTPUT PARAMETERS: 
1719 1! NONE 
17 ’ 1! 
17 1 ! IMPLICIT OUTPUTS: 
17 ¢ 1! NONE 
17 1! 
17246 1 ! ROUTINE VALUE: 
4 ; : Completion status. 
1727 1 | SIDE EFFECTS: 
1728 1! NONE 
1729 1! 
1730 1 !-- 
1731 ~«#1 
17 § BEGIN 
17 MAP 
4 : RAB: REF BBLOCK; ! Pointer to RAB 
17 
1? : : This service is a no-operation. 
Veg 3 GuatRag $13 = grst-tomas 

= 0; 
1741 2 RMSS$_NORMAL 
1742 1 END; 


0000 00000 ENTRY SYSSCONNECT, Save nothing : 1706 
50 04 AC 00 00002 MOVL ae RO : 1739 
08 A0 00010091 BF D0 90006 MOVL #65537, 8(RO) : 
C AO D4 0000E CLRL —-_: 12 (RO) > 1740 
50 00010001 = «aF B0 00011 MOVL #65537, RO t 1742 
4 00018 RET : 


25 bytes, Routine Base: CODE + 02A8 


| 
| 
| 
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8 

STAIOSYS Standalone 1/0 system 1B-se -1984 01:05:14 AX-11 Bliss-32 V4.0-74 p 3 
‘vot-too SYSSPUT = RMS SPUT routine ee aet) ae ee VPP a hg CTE a0 133 
; 6469 1743 1 ZSBTTL ‘SYSSPUT = RMS SPUT routine’ 

; 650 1744 1 GLOBAL ROUTINE SYSSPUT(RAB)= 

; 651 1745 1 

3; § § 1o68 1 tee 

3 6 1747 1! 

3; 654 +068 1 ! FUNCTIONAL DESCRIPTION: 

; 655 1749 1! This routine is a replacement for the + service in the 
3 626 1750 1! stand-alone environment. This service is provided to allow 
3 $e 63! ; /LIST to operate. It is restricted to terminals and Line printers. 
3 £28 17 § 1 ! INPUT PARAMETERS: 

; 660 1754 1! RAB - Pointer to the RAB. 

; 661 1755 1! 

3 O66 17236 1 ! IMPLICIT INPUTS: 

: 66 1757 1! NONE 

3; 664 1738 1! 

; 665 175 1 ! OUTPUT PARAMETERS: 

3 668 1760 1! NONE 

; 66 1761 1! 

; 668 1706 1 ! IMPLICIT OUTPUTS: 

3; 669 17635 1! NONE 

; 670 1764 1! 

3 671 1765 1 =! ROUTINE VALUE: 

s 67 1766 1! Completion status. 

3; 67 1767 1! 

3 674 1768 1°! SIDE EFFECTS: 

; 675 1769 1! NONE 

3; 676 1770 1! 

3; 677 1771 1 t= 

: 678 Ieee 1 

; 679 177 BEGIN 

; 680 1774 MAP 

; 681 1775 RAB: REF BBLOCK; ! Pointer to RAB 

3 ret 1778 LOCAL 

; 68 177 AB: REF BBLOCK, ' Pointer to FAB 

3; 684 1778 STATUS, ' Status variable 
3; 685 177 10SB8: VECTORE4,WORDJ; |! 1/0 status block 
; O56 1780 

; 68 1781 

3; 688 17 ¢ ' Point to FAB. 

; 689 17 ! 

; 690 17 FAB = .RABCRABSL_FAB); 

BOB 

; 69 17 ! Make sure a channel has been assigned. 

» 694 1738 ' 

3; 695 1789 If .FABCFABSL_CTX] EQL 0 

3 696 1790 THEN 

3; 69 1791 BEGIN 

; 698 179, RABLRABSL_STS] = RMS$_DEV; 

: orp 179 RABCRABSL STV) = 0; 

; 700 17 RETURN RMS$_DEV 

: 4 1795 END; 

: 2 § 17 

: 0 179 

ae 18 ' Execute the 1/0. 

: 705 17 ‘ 


3333 


Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge ee 
SN 
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; Routine Size: 


H 8 
S$PU SSPUl e RAS SPUT routine 12 ~3007 1388 i 9: b 


St 
SY 
! veg A felt Ow( re 
1 Chase. = PABCFABSL _CTk), 
1 10SB8= 
1 P1=.RABLRABSL_RBF 
: 5 <9 RAB RABSW_ “RS2), 
1 IF STATUS THEN _STATUS z , 4088003; 
1898 § Ragteaget-ftvd = 6241 
1810 . STATUS 
1811 END; 
0004 00000 
5 08 cs 444 
: Of A DO 0000 
C A2 00 said 
18 ad OD 00D 
1 12 00010 
08 A2 000184C4 8F 00 00012 
OC A2 04 sia'ats 
50 000184C4 8F DO 0001D 
9s 00024 
7E 7C 00025 1$: 
DB Ries 
7E sé A2 i tit 
2 A2 0D it 
7E 7C 00032 
20 ar 9F 00034 
20 DD 00037 
18 AO DD 00039 
7E D4 0003C 
00000000G 00 0c Fe Bo0 7 
03 50 3 st 9 
50 6E 3C 00048 
08 A2 50 DO 00048 2$ 
0c A2 04 0004F 
04 00052 
83 bytes, Routine Base: CODE + 02C1 
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5 


T3(Ra) 8(R2) 
1595 4, RO 


FAB 


R—VODB 
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AX=11 Bliss-32 
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sysenyt Save R2 
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4.0-74 
YS .83 
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ndalone 1/0 system 1b-5e “19 1:05:14 AX-11 Bliss-32 V4.0-74 P 5 
Y = various Smny RMS routines ~3e07}38t ot: 4:05 BACKUP.SRCIJSTAIOSYS. 331 age $3 | 


ee 


ZSBTTL ‘DUMMY = various dummy RMS routines’ 
ROUTINE DUMMY (RAB) = 


'e¢ 


i 
FUNCTIONAL DESCRIPTION: 
This routine serves as a stub for services that are referenced but are 
never called in the stand-alone environment, namely SYSSFIND, SYSSGET, 
and SYSSREWIND. These services are used to handle save set files in 
the on-Line version. 


i INPUT PARAMETERS: 
RAB - Pointer to the RAB. 


i IMPLICIT INPUTS: 
NONE 


WN —O OONAUE WN “OO OONOUS wT 


©2 09 00 OD 09 C9 OD OD OD OD OD OD GD OP CD 09 0D 09 OD CD 09 9 09. 0D 0900.00 00 
WAN WI AIO RPO PORONURURUN 2 2 


i 
i 
i 
i 
! 
' 
' 
! 
' 
' 
' 
' 
i QUTPUT PARAMETERS: 
NONE 
' 
' 
i 
i 
i 
i 
i 
! 
' 
' 


—b Bt 4 2 > 4 2 sb ss ss 2 ss a st a a tb tt tt 


PIII III at tk nt st st kd td 


! IMPLICIT OUTPUTS: 
NONE 
35 sptiee | VALUE : “ 
39 Completion status (RMS$_IOP, invalid operation). 
38 ! SIDE EFFECTS: 
39 NONE 
840 
841 ad 
seg 
84 BEGIN 
844 MAP 
ot? RAB: REF BBLOCK; ! Pointer to RAB 
Bc? 
848 alge sts = RMS$_IOP; 
849 = 0; 
850 
851 


0000 80000 DUMMY: .WORD Save nothing : 1813 
50 04 AC DO 00002 MOVL > 1848 
08 Ad 00018574 af bo 90006 ROVL #99700, 8(RO) P oees 
50 00018574 BF Bd Got} MOVL #99700, RO : 1851 
4 00018 RET 3 


; Routine Size: 25 bytes, Routine Base: CODE + 0314 


Standalone 1/0 system tbese $ep-1984 01: AX-11 Bliss-32 V4.0-74 
DUMMY = various Sunny RMS routines =300-1383 9 7 bé BACKUP. $Re STAIOSY 1$-09551 
: 760 1 § 1 GLOBAL BIND ROUTINE 
; 761 1 1 SYSSF IND = DUMMY, 
; 76 1854 (1 SYSSGET = DUMMY, 
s 76 1855 1 SYSSREWIND = DUMMY; 
; 7646 1 $ 1 
; 765 1 1 
3: 76 1 : 1 END 
; 76 1859 0 ELUDOM 
SYSSF IND== DUMMY 
SYS$GET== Y 
SYSSREWIND== DUMMY 
3 PSECT SUMMARY 
; Name Bytes Attributes 
: DATA NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,A apt 
3; CODE 813 NOVEC ‘NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
: ewoercecce Symbols eoeeeeen Pages Processing 
3 File Total Loaded Percent Mapped Time 
; _$255$DUA28:CSYSLIBILIB.L32;1 18619 36 0 1000 00:02.2 
8 COMMAND QUALIFIERS 
4 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:STAIOSYS/OBJ=OBJ$:STAIOSYS MSRC$:STAIOSYS/UPDATE=(ENH$:STAIOSYS) 
3; Size: 776 08°55..3 + 41 data bytes 
3; Run Time: 
3; Elapsed Time SER 
3; Lines/CPU Min: 4789 
3 Lexenes/CPU-Min: 33866 
3 ponery Used: 185 pages 
3; Compilation Complete 
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